home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rdblib / rberrfrm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-02  |  3.4 KB  |  115 lines
  1. VERSION 2.00
  2. Begin Form RBErrFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "RDB Error Handler"
  6.    ClientHeight    =   3225
  7.    ClientLeft      =   2550
  8.    ClientTop       =   2490
  9.    ClientWidth     =   4500
  10.    Height          =   3630
  11.    HelpContextID   =   21
  12.    Icon            =   RBERRFRM.FRX:0000
  13.    Left            =   2490
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   3225
  17.    ScaleWidth      =   4500
  18.    Top             =   2145
  19.    Width           =   4620
  20.    Begin CommonDialog CMDialog1 
  21.       HelpFile        =   "rberror.hlp"
  22.       Left            =   1740
  23.       Top             =   1080
  24.    End
  25.    Begin SSCommand Command3D1 
  26.       Caption         =   "Help"
  27.       Font3D          =   0  'None
  28.       Height          =   315
  29.       Index           =   3
  30.       Left            =   120
  31.       TabIndex        =   5
  32.       Top             =   2760
  33.       Width           =   2115
  34.    End
  35.    Begin SSCommand Command3D1 
  36.       Caption         =   "Ignore"
  37.       Font3D          =   0  'None
  38.       Height          =   315
  39.       Index           =   2
  40.       Left            =   2940
  41.       TabIndex        =   4
  42.       Top             =   2460
  43.       Width           =   1380
  44.    End
  45.    Begin SSCommand Command3D1 
  46.       Caption         =   "Retry"
  47.       Font3D          =   0  'None
  48.       Height          =   315
  49.       Index           =   1
  50.       Left            =   1500
  51.       TabIndex        =   3
  52.       Top             =   2460
  53.       Width           =   1440
  54.    End
  55.    Begin SSCommand Command3D1 
  56.       Caption         =   "Abort"
  57.       Font3D          =   0  'None
  58.       Height          =   315
  59.       Index           =   0
  60.       Left            =   120
  61.       TabIndex        =   2
  62.       Top             =   2460
  63.       Width           =   1380
  64.    End
  65.    Begin SSCommand Command3D1 
  66.       Caption         =   "Create Problem Report"
  67.       Font3D          =   0  'None
  68.       Height          =   315
  69.       Index           =   4
  70.       Left            =   2220
  71.       TabIndex        =   1
  72.       Top             =   2760
  73.       Width           =   2115
  74.    End
  75.    Begin TextBox Msg 
  76.       BackColor       =   &H00C0C0C0&
  77.       Height          =   2295
  78.       Left            =   120
  79.       MultiLine       =   -1  'True
  80.       TabIndex        =   0
  81.       Top             =   60
  82.       Width           =   4215
  83.    End
  84.    Begin Label SvErr 
  85.       Caption         =   "Label1"
  86.       Height          =   315
  87.       Left            =   420
  88.       TabIndex        =   6
  89.       Top             =   1920
  90.       Width           =   915
  91.    End
  92. Sub Command3D1_Click (index As Integer)
  93.     RB_Erraction = index
  94.     If index < 3 Then
  95.         Unload RBErrFrm
  96.     End If
  97.     If index = 3 Then
  98.         If Dir$("rberror.hlp") = "" Then
  99.             helploc = Trim(Environ$("windir"))
  100.             If Right(helploc, 1) <> "\" Then
  101.                 helploc = helploc + "\"
  102.             End If
  103.             CMDialog1.HelpFile = helploc & "rberror.hlp"
  104.         End If
  105.         CMDialog1.HelpCommand = HELP_KEY
  106.         CMDialog1.HelpKey = "Error" & Format$(Val(sverr.Caption), "######")
  107.         CMDialog1.Action = 6
  108.     End If
  109.     If index = 4 Then
  110.         RBProbRpt.TxtProblem.Text = Msg.Text
  111.         RBProbRpt.WindowState = MAXIMIZED
  112.         RBProbRpt.Show MODAL
  113.     End If
  114. End Sub
  115.